home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FST30A.ZIP;1 / PEOPLE.MOD < prev    next >
Encoding:
Modula Implementation  |  1992-09-20  |  885 b   |  34 lines
  1. IMPLEMENTATION MODULE People;
  2.   FROM Strings IMPORT CompareStr, Assign;
  3.  
  4.   CLASS Person;    (* a class implementation *)
  5.     PROCEDURE isMale() :BOOLEAN;
  6.       BEGIN
  7.         RETURN sex = male;
  8.       END isMale;
  9.     INIT
  10.       name := "";
  11.       sex := unknown;
  12.  END Person;
  13.  
  14.   CLASS Programmer;  (* a class implementation *)
  15.     PROCEDURE isSmart() :BOOLEAN;
  16.       BEGIN
  17.         RETURN CompareStr(favoriteLanguage,"Modula-2") = 0;
  18.       END isSmart;
  19.     INIT
  20.       favoriteLanguage := "?";
  21.   END Programmer;
  22.  
  23.   CLASS Vendor;      (* a local class declaration *)
  24.     INHERIT Programmer;
  25.     BusinessAddress : ARRAY [0..40] OF CHAR;
  26.     PROCEDURE GetAddress (VAR Address : ARRAY OF CHAR);
  27.       BEGIN
  28.         Assign(BusinessAddress, Address)
  29.       END GetAddress;
  30.     INIT
  31.       BusinessAddress := "PO Box 867403, Plano, Texas"
  32.   END Vendor;
  33. END People.
  34.